0 A$="":PRINT"[147]":POKE53274,0:SYS65418
1 POKE55,0:POKE56,63:POKE51,0:POKE52,63
3 GOSUB61000
5 POKE147,0:SYS57812"ROUTINES V4",8,1:SYS62631
6 POKE147,0:SYS57812"BASIC PLAYER.O",8,1:SYS62631
7 POKE147,0:SYS57812"RASTER STUFF.O",8,1:SYS62631
8 POKE147,0:SYS57812"MUS INPUT ANY.O",8,1:SYS62631
10 FR$="":LA$="":OV$=""
11 NS=7:DIM NA$(NS),FI$(NS)
12 SA=780:SX=781:SY=782
13 FORI=0TO24:POKE54272+I,0:NEXT
15 SU=51206:SD=51209
16 POKE1020,10:POKE1021,16:POKE1022,7:POKE1023,32
20 GOSUB1000
30 GOSUB1500
40 GOSUB2000
50 GOSUB3000
60 GOSUB100
64 PRINT"[193]RE YOU SURE YOU WANT TO QUIT? ([217]/[206])":POKE198,.
66 A=PEEK(203):IFA<>25ANDA<>39THEN66
68 IFA=39THENGOSUB2020:GOTO50
70 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
72 IFER<>63THENPRINT"[147]":END
74 LOAD"HELLO CONNECT",8
100 PRINTLA$""
110 FORA=1TO5:PRINT"                                    "
120 NEXT:PRINT"[145][145][145][145][145][145]"
130 RETURN
1000 POKE53280,14:POKE53281,1
1010 PRINT"[147]";
1012 FORA=1TO5:
1013 PRINT"[154]                                        ";
1014 NEXT
1015 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1020 FORA=.TO14:PRINT"[154][221]                                      [221]";:NEXT
1030 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
1032 FORA=1TO2:
1033 PRINT"[154]                                        ";
1034 NEXT
1035 PRINT"                                       [157][148] "
1040 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1050 PRINT"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1060 PRINT"[221][204][207][193][196][211][212][193][210]  [208]RESENTS[221] "
1070 PRINT"[149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1080 PRINT"                   "
1090 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1100 FORA=1TO5
1110 PRINT"[144][221]                         [221] "
1120 NEXT
1130 PRINT"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1135 PRINT"                          "
1140 PRINT"[145][145][145][145][145][145] [200][207][205][197] [199][210][207][215][206] [205][213][211][201][195] "
1150 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1160 PRINT"    [194]Y [196]EBBY [195]RUZ"
1170 PRINT"                     "
1180 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1190 PRINT"[221]        [195]OPYRIGHT 1988        [221] "
1191 PRINT"[150][221]                              [221] "
1192 PRINT"[150][221]        [211]OFTDISK, [201]NC.        [221] "
1200 PRINT"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1210 PRINT"                                "
1220 FORA=1TONS:READ NA$(A),FI$(A):NEXT
1230 PRINT"[149]  [208]RESS [211][208][193][195][197] TO CONTINUE. [154]":POKE198,.
1240 IFPEEK(203)<>60THEN1240
1250 RETURN
1500 PRINT"[149][221]                  [221]"
1510 PRINT"[221] [200][207][205][197] [199][210][207][215][206][160][205][213][211][201][195] [221] "
1520 PRINT"[149][221] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [221] "
1530 PRINT"[154]         [149][221]  [194]Y [196]EBBY [195]RUZ   [221] [154]         "
1535 MM=1263:POKEMM,160:POKE54272+MM,14
1540 PRINT"[154]         [149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [154]         "
1545 MM=MM+40:POKEMM,160:POKE54272+MM,14
1550 PRINT"[154]                              [154]       "
1555 MM=MM+40:POKEMM,160:POKE54272+MM,14
1560 PRINT"[154]     [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD  "
1565 MM=MM+40:POKEMM,160:POKE54272+MM,14
1570 PRINT"[154] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1575 MM=MM+40:POKEMM,160
1580 FORA=1TO7
1590 PRINT"[154] [129][146][221]                                    [221]"
1595 MM=MM+40:POKEMM,160:POKE54272+MM,6
1597 IFA=4THENPRINT"[145][144]--->"TAB(34)"<---"
1600 NEXT
1610 PRINT"[154] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1615 MM=MM+40:POKEMM,160:POKE54272+MM,6
1620 FORA=1TO5
1630 PRINT"[154] [129][146][221]                                    [221]"
1635 MM=MM+40:POKEMM,160:POKE54272+MM,6
1640 NEXT
1650 PRINT"[154] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1655 MM=MM+40:POKEMM,160:POKE54272+MM,6
1660 PRINT"[154]                                       "
1665 MM=MM+40:POKEMM,160:POKE54272+MM,6
1670 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1680 RETURN
2000 PRINTFR$;
2010 FORA=1TO7:PRINTOV$"[156]"NA$(A):NEXT
2015 SE=4
2016 LS$=""
2020 GOSUB100:PRINTLA$"[213]SE THE [195][210][211][210] KEYS TO SCROLL THE"
2025 PRINT"MUSIC UP AND DOWN."
2030 PRINT"[208]RESS [[210][197][212][213][210][206]] TO HEAR THE"
2040 PRINT"SELECTED MUSIC."
2050 PRINT"[198]1 - [208]LAY ALL        [198]7 - [209]UIT"
2060 RETURN
3000 POKE198,.:AB=.:PA=.
3005 B=PEEK(653):A=PEEK(203):IFA<>7ANDA<>2ANDA<>4ANDA<>3ANDA<>1THEN3000
3010 IF((B=.)AND(A=2))OR((B)AND(A=7))THEN GOSUB3100:GOTO3000
3020 IF((B=.)AND(A=7))OR((B)AND(A=2))THEN GOSUB3200:GOTO3000
3030 IF(A=1)THEN4000
3040 IF(A=4)THEN4100
3050 IF(A=3)THEN RETURN
3060 GOTO3000
3100 SE=SE-1:IFSE=.THENSE=NS
3110 TP=SE-3:IFTP<1THENTP=NS+TP
3120 SYSSD:POKE648,216:SYSSD:POKE648,4:PRINTFR$OV$"[156]"NA$(TP)
3130 RETURN
3200 SE=SE+1:IFSE=NS+1THENSE=1
3210 BO=SE+3:IFBO>NSTHENBO=BO-NS
3220 SYSSU:POKE648,216:SYSSU:POKE648,4:PRINTLA$OV$"[156]"NA$(BO)
3230 RETURN
4000 PL=SE
4010 GOSUB6000
4040 GOTO3000
4097 :
4098 :
4100 MM=SE:PA=-1:FORZZ=SETONS
4110 PL=ZZ
4120 GOSUB6000
4150 GOSUB3200
4155 IF(AB)THENGOSUB2020:GOTO3000
4160 NEXT:IF(MM=1)OR(AB)THENGOSUB2020:GOTO3000
4170 FORZZ=1TOMM-1
4180 PL=ZZ
4190 GOSUB6000
4220 GOSUB3200
4225 IF(AB)THENGOSUB2020:GOTO3000
4230 NEXT:GOSUB2020:GOTO3000
6000 OK=1:HE=.:IFLS$=FI$(PL)THEN6540
6001 LS$=FI$(PL)
6003 GOSUB100:LI$="[204]OADING "+NA$(PL):LI=LEN(LI$):TA=20-LI/2
6005 PRINT""TAB(TA)LI$
6010 SYS57812"M."+FI$(PL),8,0:POKE780,0:POKE781,0:POKE782,160:SYS65493
6020 SYS57812"W."+FI$(PL),8,0:POKE780,0:POKE781,104:POKE782,207:SYS65493
6500 OPEN3,8,3,"C."+FI$(PL)
6510 FORA=1TO5:SYS828,3,40:CR$(A)=A$:NEXT
6530 CLOSE3
6540 IF(OK)THENSYS52222,40960:OK=.
6545 POKE214,18:PRINT
6550 POKE198,.:GOSUB100:FORA=1TO5:PRINT"[154] [146][150][221]"CR$(A):NEXT
6555 PRINT"[154]          [208]RESS "CHR$(34)"[200]"CHR$(34)" FOR HELP.          "
6560 KE=PEEK(203):IF(KEY=29)OR(KEY=60)OR(KEY=10)OR(KEY=62)THEN6562
6561 IFPEEK(2)<>255THEN6560
6562 IF(KEY=60)AND(HE)THENHE=.:GOTO6550
6563 IF(KEY=10)AND(PA)THENAB=-1:GOTO6570
6564 IF(KEY=29)AND(NOT(HE))THENGOSUB7500:GOTO6560
6565 IF(KEY=60)OR(KEY=29)OR(KEY=10)THEN6560
6570 GOSUB100
6572 SYS52225
6575 PRINT"[154]     [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD "
6580 IF(NOT(PA))THENGOSUB100:GOSUB2020
6590 RETURN
7500 PRINT"[154]     [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD "
7510 GOSUB100:PRINT" [208]RESS "CHR$(34)"[209]"CHR$(34)" TO QUIT CURRENT MUSIC."
7520 IFNOT(PA)THENPRINT:GOTO7540
7530 PRINT" [208]RESS "CHR$(34)"[193]"CHR$(34)" TO ABORT PLAY ALL."
7540 PRINT" [208]RESS [211][208][193][195][197] TO RE-DISPLAY CREDITS."
7550 HE=-1:RETURN
10000 REM NAME OF SONG (MENU),NAME OF             PERSON,FILENAME
10003 DATA "[193] [195]ARNIVAL [215]ALK",AWALK
10004 DATA "[211]TRANGER",STRANGER
10005 DATA "[208]ORTRAIT",PORTRAIT
10006 DATA "[194]ABE",BABE
10007 DATA "[211]TORM",STORM
10008 DATA "[196]REAM",DREAM
10009 DATA "[198]LIT",FLIT
61000 POKE214,15:PRINT
61110 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 PRINT"  [152]                                    "
61130 PRINT"             [200][207][205][197] [199][210][207][215][206] [205][213][211][201][195]         "
61140 PRINT"      BY [196]EBBY [195]RUZ  [195]OPYRIGHT 1989   "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #58     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 POKE214,10:PRINT:PRINT"         [208]LEASE WAIT A MINUTE"
61210 RETURN